in reply to Removing first part of string with regex

U can also go by this, 
open(FH,"1");
map {
    s/^[^.]*\.// && print;
} (<FH>);

[download]

In Section Seekers of Perl Wisdom