#!/usr/bin/perl -p
BEGIN{*{$*}=$*=~s**\Uargv**$*{$*}=~s**data*?uc$*{$*}:*=}__END__
Just another perl hacker.