[PERL] Wyrażenie regularne wycinające tekst

[mForest]

Chciałbym prosić o pomoc w skonstruowaniu takiego wyrażenia które z podanego stringa wycina tekst zawarty w [] (Obojętnie jaki). Napisałem coś takiego ale niestety to wyrażenie bierze pod uwagę pierwszy i ostatni nawias w stringu więc przy więcej niż dwóch się sypie

$text = "To: [cos] [cos] <[cos]>";

$text !~ s/\[(.*)\]/Wycinam/g;

print $text."\n";

[TQM]

$text =~ s/\[.*?\]/Wycinam/g;

Na czerwono dodalem co trzeba zmienic