#!/usr/bin/perl -l

$_ = "japhy";
1 while /./g;
$_ = "upset";