use strict;

my $line = "http://127.0.0.1/home_dir";

if ($line =~ /(\/.)(\/.)(\/.)/)
{
    print "$1\n";
    print "$2\n";
    print "$3\n";
}
else
{
    print "Bad RegEx\n";
}
exit;