#!/usr/bin/perl -w

use strict;

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

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