Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Use G to match rest of text
#!/usr/bin/perl
use warnings;
use strict;
my $text = "3 2 1 abc";
if ($text =~ /\G\s*(.+)$/) {
    print ucfirst($1), "!\n";
}