Probably the simplest way would be to just replace the string \n with an actual \n.

use strict;
use warnings;

for ( @ARGV )
{
    s/\\n/\n/g;
}

my $string1=$ARGV[0];
my $string2=$ARGV[1];
print $string1 ;
print $string2 ;
[download]