;
close FAILS;
# Apvieno visu vienā mainīgajā
$viss_kods = join '', @teksts;
# Jāatrod, kurus simbolus izmantot kā pagaidu simbolus
die "Kļūda: Atverošo trīstūriekavu aizstājējsimbols '$atver3' ir tekstā.\n" if ($viss_kods =~ /$atver3/);
die "Kļūda: Aizverošo trīstūriekavu aizstājējsimbols '$aizver3' ir tekstā.\n" if ($viss_kods =~ /$aizver3/);
die "Kļūda: Un zīmes aizstājējsimbols '$un' ir tekstā.\n" if ($viss_kods =~ /$un/);
die "Kļūda: Pēdiņu aizstājējsimbols '$peedinjas' ir tekstā.\n" if ($viss_kods =~ /$peedinjas/);
die "Kļūda: Vienādības zīmes aizstājējsimbols '$vienaads' ir tekstā.\n" if ($viss_kods =~ /$vienaads/);
die "Kļūda: Piezīmes sākuma aizstājējsimbols '$vienaads' ir tekstā.\n" if ($viss_kods =~ /$pieziime_s/);
die "Kļūda: Piezīmes beigu aizstājējsimbols '$vienaads' ir tekstā.\n" if ($viss_kods =~ /$pieziime_b/);
$viss_kods =~ s//$pieziime_b/g;
$viss_kods =~ s/$atver3/g;
$viss_kods =~ s/>/$aizver3/g;
$viss_kods =~ s/&/$un/g;
$viss_kods =~ s/"/$peedinjas/g;
#TAG
$viss_kods =~ s/$atver3(\s*)(\w+)($aizver3|\s)/$atver3$1$pirmsklases1$vienaads$kraaso{komanda}$pirmsklases2$2$peecklases$3/g;
$viss_kods =~ s/$atver3(\s*)\/(\w+)($aizver3|\s)/$atver3$1$pirmsklases1$vienaads$kraaso{aizver}$pirmsklases2\/$peecklases$pirmsklases1$vienaads$kraaso{komanda}$pirmsklases2$2$peecklases$3/g;
#mainīgie
$viss_kods =~ s/(\s+)(\w+)=/$1$pirmsklases1$vienaads$kraaso{mainiigais}$pirmsklases2$2$peecklases=/g;
#vērtības
$viss_kods =~ s/=$peedinjas(\d+)([^$peedinjas]*)$peedinjas/$vienaads$peedinjas$pirmsklases1$vienaads$kraaso{skaitlis}$pirmsklases2$1$2$peecklases$peedinjas/g;
$viss_kods =~ s/=(\d+)([^\s$aizver3]*)($aizver3|\s)/$vienaads$pirmsklases1$vienaads$kraaso{skaitlis}$pirmsklases2$1$2$peecklases$3/g;
$viss_kods =~ s/=$peedinjas([^$peedinjas]+)$peedinjas/$vienaads$peedinjas$pirmsklases1$vienaads$kraaso{veertiiba}$pirmsklases2$1$peecklases$peedinjas/g;
$viss_kods =~ s/=([^\s$aizver3]*)($aizver3|\s)/$vienaads$pirmsklases1$vienaads$kraaso{veertiiba}$pirmsklases2$1$peecklases$2/g;
#Iekrāso stilu definējumus
#Jabūt katram savā rindiņā
$viss_kods =~ s/^(\s*)([^:]+):([^\n;]+);(\s*)$/$1$pirmsklases1$vienaads$kraaso{paziime}$pirmsklases2$2$peecklases:$pirmsklases1$vienaads$kraaso{izskats}$pirmsklases2$3$peecklases\;$4/mg;
$viss_kods =~ s/^(\s*)([^\{\n]+)\{(\s*)$/$1$pirmsklases1$vienaads$kraaso{stili}$pirmsklases2$2$peecklases\{$4/mg;
# Beigās atgriež vai aizstāj speciālos simbolus
$viss_kods =~ s/$atver3/</g;
$viss_kods =~ s/$aizver3/>/g;
$viss_kods =~ s/$un/&/g;
$viss_kods =~ s/$peedinjas/"/g;
$viss_kods =~ s/$vienaads/=/g;
$viss_kods =~ s/$pieziime_s/<!--/g;
$viss_kods =~ s/$pieziime_b/--><\/div>/g;
# Ieraksta rezultātu datnē
print IZKRAASOTS $viss_kods;
close IZKRAASOTS;