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