#!/usr/bin/perl 
use Modern::Perl;

while (<DATA>) {
    chomp;
    &read($_);
}

sub read() {
    my $path = shift;

    if ( $path =~ m?^.*/home/(.*)/\.forward? ) {
        say "i've got >$1<";
    }
    else {
        say "ups >$path<";
    }

}

__DATA__
/home/aaa/.forward
/home/bbb/.forward
/home/ccc/.forward
/home/ddd/.forward