Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Match one or zero alphanumerics followed by a single space character
$p = "This is a pattern test.";
if ($p =~ /(\w?\s)/){ print "$1\n"; }
if ($p =~ /(\w\s)/){ print "$1\n"; }