#!/usr/bin/perl -w

use strict;

while (<DATA>) {
    chomp;
    print quotemeta($_)."\n";
}

__DATA__
File1^test
File2!test
File3-test
File2\test

##</code><code>##

File1\^test
File2\!test
File3\-test
File2\\test