while (<DATA>) {
#fix the file name here
        chomp;
        $_ = quotemeta;
        print $_, "\n";
}