tweezer.001

use ojo;
my $s = oO( q{http://} 
            . join(q{:}, @ARGV) 
            .  q{@api.twitter.com/1/statuses/friends_timeline.json}
           )->json;

foreach (@$s) { 
    print Oo($_->{user}{screen_name}, q{: }, $_->{text});
    my @links =
      map  { $_ =~ s/\.$//; $_ }
      map { ( $_ =~ m|(http://[^\s]+)| ) } $_->{text};
    print "\n\t\tLinks: @links\n";
}