insert text with PERL?

[viki k]

Hi !!!

This sctipt work with \insert{aaa.tex} but dont work with \insert aaa.tex

What I must do ?!



1. while(/^\insert\{(.*?)(\.tex)?\}/){
2. $pries=$`."\n";
3. $nekeisk=$&;
4. $vardas=$1;
5. $po=$';
6. $failiukas=$1.".tex";
7.
8. if(-e "$dir/$failiukas"){
9. open (IN2,"<$failiukas") || die "negaliu atidaryti $failiukas failo.\n";
10. $vidus=<IN2>;
11. close IN2;
12.
13. $visas=$visas.$pries.$vidus."\n";
14. $_=$po;
15. print "Idetas failas $failiukas\n";
16. }
17. else{
18. $visas=$visas.$pries.$failiukas."\n";
19. $_=$po;
20. print "$failiukas failas nerastas!!!!!!\n";
21. }
22. }
23. $visas=$visas.$_;
24. $_=$visas;
25. $visas = "";