Initial commit from the 2013 with minor fixes. From now and then,

[perlbook.git] / l43.pl

#!/usr/bin/perl -w
use strict;
use warnings;
my $text= ’Variable names in Perl can have several formats...’;

$text =~ /(.*\b)/g;

print "$1\n";