use strict;
use warnings;

for my $line (@FILE) {
$line =~ s-\[pic\=(.*?)\]-my $PicTag = &GetPic( "$1" )-sige;
$line =~ s-\[audio\=(.*?)\]-my $AudioTag = &GetAudio( "$1" )-sige;
$line =~ s-\[infobox\=(.*?)\]-my $InfoBoxTag = &CreateInfoBox( "$1" )-sige;
}