The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use 5.10.1;

use utf8;
use strict;
use autodie;
use warnings;
binmode(STDOUT, ":utf8");

sub smcap(_);

if (@ARGV == 0) {
    if (-t STDIN) {
        warn "$0: reading from stdin, type ^C to kill, ^D to end.\n";
    } 
    print smcap while <>;
} else {
    say smcap "@ARGV";
} 

sub smcap(_) {
    my $_ = shift();
    # tr[A-Z][ᴀʙᴄᴅᴇꜰɢʜɪᴊᴋʟᴍɴᴏᴘQʀꜱᴛᴜᴠᴡXʏᴢ];
      tr[a-z][ᴀʙᴄᴅᴇꜰɢʜɪᴊᴋʟᴍɴᴏᴘQʀsᴛᴜᴠᴡxʏᴢ];
      #tr[A-Z][ᴀʙᴄᴅᴇꜰɢʜɪᴊᴋʟᴍɴᴏᴘQʀsᴛᴜᴠᴡxʏᴢ];
    return $_;
}