Printing string in Perl

Question

Is there an easy way, using a subroutine maybe, to print a string in Perl without escaping every special character?

This is what I want to do:

print          


        

Answer 1

You can use the __DATA__ directive which will treat all of the following lines as a file that can be accessed from the DATA handle:

while () {
   print # or do something else with the lines
}

__DATA__
#!/usr/bin/perl -w
use Some::Module;
....

or you can use a heredoc:

my $string = <<'END';  #single quotes prevent any interpolation
#!/usr/bin/perl -b
use Some::Module;
....
END