if ($columns\0\ =~ /\/home/)
{
<indent>print 'matched on /home';</indent>
}
etc...