#!/usr/bin/perl
use strict;use warnings;
$SIG{__WARN__}=sub{($_)=@_;/^\w+\s\w+(\w)(?{print$1})(?<=[A-Z])/};open Ozybied,$0;print Ozybied"Just Another Perl Hack";