指定したハッシュの値を取り出す

例えば、twitter botをperlを使って作るとして、
何かのメッセージを投げかければ、オウム返しで何かの値を返してくれるものをつくろうと思ったときに、必要な要素は、
keyのなかで、

created_at
text
user

このkeyの値を取得するためには、

use Encord;

foreach my $tweet (  @$response ){
        my $text = $tweet->{text};
        my $date = $tweet->{created_at};
        my $user = $tweet->{user}->{screen_name};
           $text = encode('utf-8',$text);

        print $date,"\n";
        print $text,"\n";
        print $user, "\n";
}

これで指定した値が取得できる。

text部分に@ユーザ−名が入るためにそれを取り除くのに、

          $text =~ s#\@username\s##;

を追加すれば、テキストのみ抽出できると。