#!/usr/bin/perl
$_ = q q/${$a}/;
use japh;		      #prints just another perl hacker
my $text = new japh;
$_ = $text->simplejaph();
$_="2gt2 3gw34w2 as5533kljt" && q;/\#\w+\s([ a-z]+)/;;
$_=${/a/};
print