my @info = $rawdata =~ /$Start\s*(.+?)\s*$End/g;
print join ';', @info;

##</code><code>##

my $regex = qr/$Start\s*(.+?)\s*$End/;

my @info = $rawdata =~ /$regex/g;
print join ';', @info;