;
close FAILS;
# Apvieno visu vienā mainīgajā
$viss_kods = join '', @teksts;
# Piezīmes
$viss_kods =~ s/\/\*/$pieziime_s/g;
$viss_kods =~ s/\*\//$pieziime_b/g;
#Iekrāso stilu definējumus
$viss_kods =~ s/([\w\-]+)(\s*):(\s*)([^\n;\{\}]+);/$pirmsklases1$vienaads$kraaso{paziime}$pirmsklases2$1$peecklases$2$pieliidzina$3$pirmsklases1$vienaads$kraaso{izskats}$pirmsklases2$4$peecklases\;/g;
$viss_kods =~ s/([^\{\}\n;]+)\{/$pirmsklases1$vienaads$kraaso{stili}$pirmsklases2$1$peecklases\{/g;
# Beigās atgriež vai aizstāj speciālos simbolus
$viss_kods =~ s/$pieziime_s/\/\*/g;
$viss_kods =~ s/$pieziime_b/\*\/<\/div>/g;
$viss_kods =~ s/$pieliidzina/:/g;
$viss_kods =~ s/$vienaads/=/g;
# Ieraksta rezultātu datnē
print IZKRAASOTS $viss_kods;
close IZKRAASOTS;