{
    local $/ = "^@";
    chomp $str;
}