Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my ($part1, $part2) = $string =~ /^(.{0,$x}\*)\s*(.*)/;

print "$_\n" for $part1, $part2;
  2. or download this
    hello my * name is Rob * and *
I am a very nice person * at least * I think * so