Select Code to Download

 

#!/usr/bin/perl
...
printf("Using  /\\./ in split the answer is first $first, second $seco
+nd\n");
(my $first, my $second)=split /\\./, $foo;
printf("Using  /\\\\./ in split the answer is first $first, second $se
+cond\n");

Using a double quoted . the answer is first , second 
Using an escaped  . the answer is first , second 
...
Using  /./ in split the answer is first , second 
Using  /\./ in split the answer is first data1, second txt
Using  /\\./ in split the answer is first data1.txt, second