String Perl

  1. Home
  2. Perl
  3. String
  4. Qw across more than one lines
#!/usr/bin/perl -w
use strict;
print qw(
     January     February     March 
     April     May          June 
     July     August          September
     October     November     December
)[-1];