String Perl

#!/usr/bin/perl -w
print "Ba" . "na" x 4 ,"\n";