in reply to Complex Regex

s/// 
use warnings;
use strict;

while (<DATA>) {
    chomp;
    s/ ^ [0-9a-z]{3} $ /hi/xi;
    print "$_\n";
}

__DATA__
ABC
GHR
1DF
uy6
fore

[download]

See also:

Replies are listed 'Best First'.
Re^2: Complex Regex
by Anonymous Monk on Jul 13, 2012 at 13:52 UTC
    Wonderful toolic!!!!!!!!! it works great..thanks
[reply]

In Section Seekers of Perl Wisdom