program-id.y.data division.working-storage section.
1 s pic x(99).
procedure division.a.accept s
inspect s converting"$."to" *"if"#"<>s(7:)if"#"<>s(12:)if"#"<>s(4:)display
function trim(s,trailing)go a.display s(1:3)s(3:).