#!/usr/bin/perl
use strict;
use warnings;
use App::Nopaste 'nopaste';

my $text = do { local $/; <> };
my $url = nopaste($text);

if ($url) {
    print $url;
    print "\n";
}

