#! perl -slw
use strict;

while ( <DATA> )
{
    chomp;

    if ( $_ !~ m[/user/prot/$] )
    {
        print qq{Disallow!! [$_]};
    }
    else
    {
        print qq{Allowed. [$_]};
    }
}

__DATA__
/user/prot/
/user/protrusions/
/user/a/
/user/backups