use utf8;

    sub £_to_¥ { ... }

    my $yen = £_to_¥('1000£');