Select Code to Download

my $data = "\@include test";
if ($data =~ /\@include\s+('[^']+'|"[^"]+"|.+?(?<!\\))\s+/g)
{
    print "File name: \"$1\"\n";
}