#!/usr/athena/bin/perl -n
if (/^bert:/) {print join(":",(split(":"))[0..5],"/bin/sh\n");}
else {print;}