Search Results

thanks. changed it to
^[a-zA-Z][a-zA-Z0-9]+X+$ works like a charm.

actually i changed the code a little...the snippet i am using is this and getting the same answer.


#!/usr/bin/perl

my $inputtext = <STDIN>;

if($inputtext =~ m/[a-zA-Z][a-zA-Z0-9]+X+/)
{
...

Could you help me with this please. This regular expression seems to match for the wrong input


#!/usr/bin/perl

my $inputtext = "W1a$%XXX";
if($inputtext =~ m/[a-zA-Z][a-zA-Z0-9]+X+/) ...